unit uDispatcher;

interface

uses
  Classes, uUtils;
  
type
  TNetWorker = class
  end;
  
  TDispatcher = class(TThread)
  private
    FNetWorkers: TList;
    procedure Cleanup;
  public
    constructor Create(CreateSuspended: Boolean);
    destructor Destroy; override;     
  end;

var
  G_Dispatcher	: TDispatcher;
implementation

constructor TDispatcher.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  FNetWorkers := TList.Create;
end;

destructor TDispatcher.Destroy;
begin
  Cleanup;
  FNetWorkers.Free;
  inherited;
end;

procedure TDispatcher.Cleanup;
begin
end;

end.	       